' 检查是否提供了足够的参数
If WScript.Arguments.Count < 1 Then
    MsgBox "Usage: cscript CreateShortcut.vbs <TargetPath> [<WorkingDirectory>]"
    WScript.Quit 1
End If

' 获取命令行参数
Dim targetPath, workingDirectory
targetPath = WScript.Arguments(0)

' 检查是否提供了工作目录参数
If WScript.Arguments.Count > 1 Then
    workingDirectory = WScript.Arguments(1)
Else
    ' 如果没有提供工作目录，则使用目标路径所在的目录作为工作目录
    workingDirectory = Left(targetPath, InStrRev(targetPath, "\"))
End If

' 创建 WScript.Shell 对象
Set oWS = WScript.CreateObject("WScript.Shell")

' 获取脚本的当前工作目录
Dim currentDirectory
currentDirectory = oWS.CurrentDirectory

' 构建快捷方式路径（在当前目录下）
sLinkFile = currentDirectory & "\vHost.exe.lnk"

' 创建快捷方式对象
Set oLink = oWS.CreateShortcut(sLinkFile)

' 设置快捷方式的目标路径和工作目录
oLink.TargetPath = targetPath
oLink.WorkingDirectory = workingDirectory

' 可选：设置窗口样式和描述（这里使用默认值，你可以根据需要修改）
oLink.WindowStyle = 1 ' 正常窗口
oLink.Description = "Shortcut to " & Mid(targetPath, InStrRev(targetPath, "\") + 1)

' 保存快捷方式
oLink.Save

' 清理对象
Set oLink = Nothing
Set oWS = Nothing